home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 52 / Amiga Format AFCD52 (Issue 136, May 2000).iso / +system+ / tools / gui / visualprefs.lha / VisualPrefs / Install < prev    next >
Text File  |  1998-06-15  |  19KB  |  616 lines
  1. ;** $VER: VisualPrefsBeta_install 40.10 (7.5.97) by Nik Soggia <nsoggia@telnetwork.it>
  2. ;**
  3. ;** modified (17.5.97) by Massimo Tantignone
  4. ;** modified (13.6.97) by Massimo Tantignone
  5. ;** modified (19.7.97) by Massimo Tantignone
  6. ;** modified (21.7.97) by Massimo Tantignone
  7. ;** modified (24.7.97) by Massimo Tantignone
  8. ;** modified (26.7.97) by Massimo Tantignone
  9. ;** modified (19.10.97) by Massimo Tantignone
  10. ;** modified (22.10.97) by Massimo Tantignone
  11. ;** modified (12.5.98) by Massimo Tantignone
  12. ;** modified (13.6.98) by Massimo Tantignone
  13. ;**
  14. ;** requires:
  15. ;** - RexxMast, Rx, Search and Version commands
  16. ;** - T: and ENV: assignments for temporary files
  17.  
  18. ;************
  19. ;** CONSTANTS
  20.  
  21. (set sgver 40)
  22. (set sgrev 12)
  23.  
  24. ;******************************
  25. ;** MESSAGES (DEFAULT: ENGLISH)
  26.  
  27. (set msg_rx     "Installer is unable to locate the \"Rx\" command")
  28. (set msg_rxm    "Installer is unable to locate the \"RexxMast\" command")
  29. (set msg_rxp    "Please locate it:")
  30. (set msg_wait   "Checking installation")
  31. (set msg_vpi    "A copy of VisualPrefs is already installed")
  32. (set msg_vpn    "VisualPrefs is not installed")
  33. (set msg_dir    "A drawer WILL NOT be created")
  34. (set msg_seldr  "Select the destination drawer:")
  35. (set msg_selcpu "Select the version of VisualPrefs you want to install.")
  36. (set msg_gadget "Do you want to install the \"select.gadget\" class library?\nIt is needed for the cycle gadget \"pop-up\" feature to work.")
  37. (set msg_whdoc  "Where do you want to copy the documentation files?")
  38. (set msg_whgadg "Where do you want to copy the \"select.gadget\" library?")
  39. (set msg_lang   "What language catalogs do you want to install?")
  40. (set msg_cpu000 "68000")
  41. (set msg_cpu020 "68020/030")
  42. (set msg_cpu040 "68040")
  43. (set msg_cpu060 "68060")
  44. (set msg_l_ita  "Italiano")
  45. (set msg_icoo   "Normal icons")
  46. (set msg_icon   "NewIcons")
  47. (set msg_icom   "Magic WB")
  48. (set msg_icoi   "Iconographics")
  49. (set msg_icox   "No icons")
  50. (set msg_icop   "Select icon set")
  51. (set msg_exa    "Install example preferences?")
  52. (set msg_pwb    "Install the PatchWB program?\nIt fixes a bug in IPrefs V39/V40 which could cause\nproblems with VisualPrefs and other programs.\nRead the help for more information.")
  53. (set msg_pwb2   "If you select \"Yes\", PatchWB will be copied\ninto your WBStartup drawer.")
  54. (set msg_adv1   "If you are using other programs similar to VisualPrefs, you should deinstall them now.\nFailure to do so could result in system crashes due to conflicts between equivalent patches.\n\n")
  55. (set msg_adv2   "In particular, if you use MCP, please turn off its \"SysIHack\", \"FrameIHack\" and \"NewGadTools\" options, and also \"CycleToMenu\" if you want to use the cycle gadget \"pop-up\" patch of VisualPrefs.\n\n")
  56. (set msg_adv3   "In the case you still experience crashes, please read the \"Notes & hints\" section of the guide, which contains useful information about how to solve many common problems.")
  57. (set msg_done   "VisualPrefs will be available next time you boot.")
  58. (set msg_done2  "\n\nIf you use them, you should remove Prop3D and\nCenterTitles from your User-startup.")
  59. (set rxhelp     "Use the file requester to select the \"Rx\" program.")
  60. (set rxmhelp    "Use the file requester to select the \"RexxMast\" program.")
  61. (set dirhelp    "Select the drawer into which VisualPrefs is to be copied.\nIt should reside in the system command path.")
  62. (set dirhelp2   "Select the drawer into which the documentation is to be copied.\nThe default is the same drawer which VisualPrefs resides in.")
  63. (set dirhelp3   "Select the drawer into which the \"select.gadget\" library is to be copied.\nThe default is \"SYS:Classes/Gadgets\".")
  64. (set cpuhelp    "If you have an accelerated Amiga, you can choose to\ninstall a more optimized version of VisualPrefs and\nits preferences editor.")
  65. (set gadghelp   "The BOOPSI class library \"select.gadget\" is needed for the cycle gadget \"pop-up\" feature to work.\nIf you don't plan to use this feature, you can avoid installing it.")
  66. (set gadghelp2  "If you choose to install it, it will be copied into a directory of your choice.\nIn the case a newer version is already in place, it won't be overwritten.")
  67. (set langhelp   "Choose one or more languages for VisualPrefs and the GUI editor.\nYou can later select which one to use with the Locale preferences editor.")
  68. (set iconhelp   "Choose the style for the icons to be installed.")
  69. (set exahelp    "If you select \"Yes\", an example preferences file (preset) will be copied into your SYS:Prefs/Presets drawer.")
  70. (set pwbhelp    "The IPrefs program which comes with AmigaOS 3.0 (V39) and 3.1 (V40) has a serious bug which sometimes causes a lock-up at the opening of the Workbench screen.")
  71. (set pwbhelp2   "If you experience such a problem when saving new preferences with the GUI editor, you should consider installing the supplied PatchWB program, which fixes it.")
  72. (set pwbhelp3   "If you already use this patch, or if you use a newer (> V40) version of IPrefs, please skip this part.")
  73. (set pwbhelp4   "PatchWB is © 1998 Thomas Richter.")
  74. (set var_docd   "DocsEnglish")
  75. (set var_docr   "VisualPrefs.guide")
  76. (set var_doca   "VP-Developer.doc")
  77. ;(set var_docc   "Changes")
  78.  
  79. ;**********************
  80. ;** MESSAGES (ITALIANO)
  81.  
  82. (if (= @language   "italiano")(
  83.    (set msg_rx     "Installer non è in grado di trovare il comando \"Rx\"")
  84.    (set msg_rxm    "Installer non è in grado di trovare il comando \"RexxMast\"")
  85.    (set msg_rxp    "Per favore, localizzatelo:")
  86.    (set msg_wait   "Verifica installazione")
  87.    (set msg_vpi    "Una copia di VisualPrefs è già installata")
  88.    (set msg_vpn    "VisualPrefs non è installato")
  89.    (set msg_dir    "NON verrà creato alcun cassetto")
  90.    (set msg_seldr  "Scegliere il cassetto di destinazione:")
  91.    (set msg_selcpu "Scegliere la versione di VisualPrefs da installare.")
  92.    (set msg_gadget "Deve essere installata la libreria \"select.gadget\"?\nE` necessaria al funzionamento dell'opzione \"pop-up\" per i cycle gadget.")
  93.    (set msg_whdoc  "Dove volete che siano copiati i file della documentazione?")
  94.    (set msg_whgadg "Dove volete che sia copiata la libreria \"select.gadget\"?")
  95.    (set msg_lang   "Per quali lingue deve essere installato un catalog?")
  96.    (set msg_cpu000 "68000")
  97.    (set msg_cpu020 "68020/030")
  98.    (set msg_cpu040 "68040")
  99.    (set msg_cpu060 "68060")
  100.    (set msg_l_ita  "Italiano")
  101.    (set msg_icoo   "Normali")
  102.    (set msg_icon   "NewIcons")
  103.    (set msg_icom   "Magic WB")
  104.    (set msg_icoi   "Iconographics")
  105.    (set msg_icox   "Niente icone")
  106.    (set msg_icop   "Selezionare il set di icone")
  107.    (set msg_exa    "Installare preferenze di esempio?")
  108.    (set msg_pwb    "Installare il programma PatchWB?\nCorregge un bug in IPrefs V39/V40 che può causare\nproblemi con VisualPrefs e altri programmi.\nLeggete l'help per ulteriori informazioni.")
  109.    (set msg_pwb2   "Selezionando \"Sì\" PatchWB verrà copiato\nnel vostro cassetto WBStartup.")
  110.    (set msg_adv1   "Se usate altri programmi simili a VisualPrefs dovreste disinstallarli ora.\nIn caso contrario potrebbero verificarsi dei crash di sistema dovuti a conflitti tra patch equivalenti.\n\n")
  111.    (set msg_adv2   "In particolare, se usate MCP, disattivate le sue opzioni \"SysIHack\", \"FrameIHack\" e \"NewGadTools\", nonché \"CycleToMenu\" se volete usare il patch \"pop-up\" di VisualPrefs per i cycle gadget.\n\n")
  112.    (set msg_adv3   "Nel caso si verifichino ugualmente dei crash, per favore leggete la sezione \"Note e suggerimenti\" della guida, che contiene utili informazioni su come risolvere molti problemi tipici.")
  113.    (set msg_done   "VisualPrefs sarà disponibile dopo il prossimo reboot.")
  114.    (set msg_done2  "\n\nSe li usate, dovreste rimuovere Prop3D e\nCenterTitles dalla vostra User-startup.")
  115.    (set rxhelp     "Usate il file requester per selezionare il programma \"Rx\".")
  116.    (set rxmhelp    "Usate il file requester per selezionare il programma \"RexxMast\".")
  117.    (set dirhelp    "Selezionare il cassetto in cui deve essere copiato VisualPrefs.\nDovrebbe trovarsi nel path dei comandi di sistema.")
  118.    (set dirhelp2   "Selezionare il cassetto in cui deve essere copiata la documentazione.\nIl default è lo stesso cassetto in cui si trova VisualPrefs.")
  119.    (set dirhelp3   "Selezionare il cassetto in cui deve essere copiata la libreria \"select.gadget\".\nIl default è \"SYS:Classes/Gadgets\".")
  120.    (set cpuhelp    "Se avete un Amiga accelerato potete scegliere di\ninstallare versioni più ottimizzate di VisualPrefs\ne del suo editor di preferenze.")
  121.    (set gadghelp   "La libreria di classe BOOPSI \"select.gadget\" è necessaria al funzionamento dell'opzione \"pop-up\" per i cycle gadget.\nSe prevedete di non usare tale opzione potete evitare di installarla.")
  122.    (set gadghelp2  "Se decidete di installarla essa verrà copiata in una directory scelta da voi.\nUn'eventuale versione più recente già presente non verrà sovrascritta.")
  123.    (set langhelp   "Scegliere una o più lingue per VisualPrefs e l'editor GUI.\nIn seguito si potrà scegliere quale usare con l'editor di preferenze Locale.")
  124.    (set iconhelp   "Scegliere lo stile per le icone da installare.")
  125.    (set exahelp    "Selezionando \"Sì\" verrà copiato un file di preferenze di esempio (preset) nel vostro cassetto SYS:Prefs/Presets.")
  126.    (set pwbhelp    "Il programma IPrefs fornito con AmigaOS 3.0 (V39) e 3.1 (V40) ha un bug serio che a volte provoca un blocco all'apertura dello schermo Workbench.")
  127.    (set pwbhelp2   "Se riscontrate tale problema quando salvate le preferenze con l'editor GUI dovreste prendere in considerazione l'installazione del programma PatchWB, che lo corregge.")
  128.    (set pwbhelp3   "Se usate già questo patch oppure usate una versione più recente (> V40) di IPrefs, per favore saltate questa parte.")
  129.    (set pwbhelp4   "PatchWB è © 1998 di Thomas Richter.")
  130.    (set var_docd   "DocsItaliano")
  131.    (set var_docr   "VisualPrefs.guide")
  132.    (set var_doca   "VP-Developer.doc")
  133.    ;(set var_docc   "Cambiamenti")
  134. ))
  135.  
  136. ;************************
  137. ;** LOCATE AREXX PROGRAMS
  138.  
  139. (if (= 1 (exists "sys:rexxc/rx" (noreq)))
  140.    (set var_rx "sys:rexxc/rx")
  141.    (if (= 1 (exists "c:rx" (noreq)))
  142.       (set var_rx "c:rx")
  143.       (set var_rx
  144.          (askfile
  145.             (default "SYS:RexxC/Rx")
  146.             (help rxhelp)
  147.             (prompt msg_rx ".\n\n" msg_rxp)
  148.          )
  149.       )
  150.    )
  151. )
  152.  
  153. (set var_rxm (tackon (pathonly var_rx) "rexxmast"))
  154.  
  155. (if (= 0 (exists var_rxm (noreq)))
  156.    (if (= 1 (exists "sys:rexxc/rexxmast" (noreq)))
  157.       (set var_rxm "sys:rexxc/rexxmast")
  158.       (if (= 1 (exists "c:rexxmast" (noreq)))
  159.          (set var_rxm "c:rexxmast")
  160.          (if (= 1 (exists "sys:system/rexxmast" (noreq)))
  161.             (set var_rxm "sys:system/rexxmast")
  162.             (set var_rxm
  163.                (askfile
  164.                   (default "SYS:System/RexxMast")
  165.                   (help rxmhelp)
  166.                   (prompt msg_rxm ".\n\n" msg_rxp)
  167.                )
  168.             )
  169.          )
  170.       )
  171.    )
  172. )
  173.  
  174. (run var_rxm)
  175.  
  176. ;******************************
  177. ;** CHECK PREVIOUS INSTALLATION
  178.  
  179. (working "(" msg_wait ")")
  180.  
  181. (delete "t:installvp.rx" (optional force) (safe))
  182. (textfile
  183.    (safe)
  184.    (dest "t:installvp.rx")
  185.    (append (cat
  186.       "/* filter */\n"
  187.       "\n"
  188.       "pull string\n"
  189.       "\n"
  190.       "comment=pos(';',string)\n"
  191.       "if comment~==0 then string=trim(left(string,comment-1))\n"
  192.       "say right(string,length(string)-lastpos(' ',string))\n"
  193.    ))
  194. )
  195.  
  196. (delete "t:installvp.sh" (optional force) (safe))
  197. (textfile
  198.    (safe)
  199.    (dest "t:installvp.sh")
  200.    (append (cat
  201.       "delete force t:installvp.out\n"
  202.       "\n"
  203.       "search >t:installvp.out search visualprefs S:Startup-sequence\n"
  204.       "if $RC eq 0\n"
  205.       "   setenv installvp_vp 1\n"
  206.       "   setenv installvp_vpp `" var_rx " <t:installvp.out t:installvp.rx`\n"
  207.       "else\n"
  208.       "   setenv installvp_vp 0\n"
  209.       "   setenv installvp_vpp \"\"\n"
  210.       "endif\n"
  211.       "delete t:installvp.out\n"
  212.       "\n"
  213.    ))
  214. )
  215.  
  216. (execute "t:installvp.sh" (safe))
  217. (delete "t:installvp.rx" (safe))
  218. (delete "t:installvp.sh" (safe))
  219.  
  220. (set var_vp (getenv "installvp_vp"))
  221. (set var_vpp (getenv "installvp_vpp"))
  222. (run "unsetenv installvp_vp")
  223. (run "unsetenv installvp_vpp")
  224.  
  225. (if (= 1 var_vp)
  226.    (
  227.       (set @default-dest (pathonly var_vpp))
  228.       (set msg_vp msg_vpi)
  229.    )
  230.    (set msg_vp msg_vpn)
  231. )
  232.  
  233. (complete 5)
  234.  
  235. (set no_break_warning
  236.    (askdir
  237.       (default @default-dest)
  238.       (help dirhelp)
  239.       (prompt (cat msg_vp ".\n" msg_dir ".\n\n" msg_seldr))
  240.    )
  241. )
  242. (set @default-dest (tackon no_break_warning ""))
  243.  
  244. (set docdir
  245.    (askdir
  246.       (default @default-dest)
  247.       (help dirhelp2)
  248.       (prompt (cat msg_whdoc "\n\n" msg_seldr))
  249.    )
  250. )
  251. (set docdir (tackon docdir ""))
  252.  
  253. ;*******************************
  254. ;** ASK INSTALLATION PREFERENCES
  255.  
  256. (complete 10)
  257.  
  258. (set var_cpu
  259.    (askchoice
  260.       (prompt msg_selcpu)
  261.       (help cpuhelp)
  262.       (choices msg_cpu000 msg_cpu020 msg_cpu040 msg_cpu060)
  263.    )
  264. )
  265.  
  266. (complete 12)
  267.  
  268. (set var_gadget
  269.    (askbool
  270.       (prompt msg_gadget)
  271.       (help (cat gadghelp "\n\n" gadghelp2))
  272.    )
  273. )
  274.  
  275. (if (= 1 var_gadget)(
  276.    (set gadgdir
  277.       (askdir
  278.          (default "SYS:Classes/Gadgets/")
  279.          (help dirhelp3)
  280.          (prompt (cat msg_whgadg "\n\n" msg_seldr))
  281.       )
  282.    )
  283.    (set gadgdir (tackon gadgdir ""))
  284. ))
  285.  
  286. (complete 14)
  287.  
  288. (set var_lang
  289.    (askoptions
  290.       (prompt msg_lang)
  291.       (help langhelp)
  292.       (choices msg_l_ita)
  293.       (default 1)
  294.    )
  295. )
  296.  
  297. (complete 16)
  298.  
  299. (set var_icon
  300.    (askchoice
  301.       (prompt msg_icop)
  302.       (help iconhelp)
  303.       (choices msg_icoo msg_icon msg_icom msg_icoi msg_icox)
  304.    )
  305. )
  306.  
  307. (complete 18)
  308.  
  309. (set var_exa
  310.    (askbool
  311.       (prompt msg_exa)
  312.       (help exahelp)
  313.    )
  314. )
  315.  
  316. (complete 20)
  317.  
  318. (set var_pwb
  319.    (askbool
  320.       (prompt msg_pwb "\n\n" msg_pwb2)
  321.       (help (cat pwbhelp "\n" pwbhelp2 "\n" pwbhelp3 "\n\n" pwbhelp4))
  322.    )
  323. )
  324.  
  325. ;*****************************
  326. ;** INSTALL FILES: VISUALPREFS
  327.  
  328. (complete 25)
  329.  
  330. (copyfiles
  331.    (source "VisualPrefs")
  332.    (dest "RAM:")
  333.    (newname "VP_000")
  334.    (safe)
  335. )
  336.  
  337. (if (= 0 var_cpu)(
  338.    (copyfiles (source "RAM:VP_000") (dest "RAM:") (newname "VP_0x0") (safe))
  339. ))
  340.  
  341. (if (= 1 var_cpu)(
  342.    (run "InstallTools/SPatch > NIL: -oRAM:VP_0x0 -pInstallFiles/VisualPrefs_020_030.pch RAM:VP_000" (safe))
  343. ))
  344.  
  345. (if (= 2 var_cpu)(
  346.    (run "InstallTools/SPatch > NIL: -oRAM:VP_0x0 -pInstallFiles/VisualPrefs_040.pch RAM:VP_000" (safe))
  347. ))
  348.  
  349. (if (= 3 var_cpu)(
  350.    (run "InstallTools/SPatch > NIL: -oRAM:VP_0x0 -pInstallFiles/VisualPrefs_060.pch RAM:VP_000" (safe))
  351. ))
  352.  
  353. (delete "RAM:VP_000" (safe))
  354.  
  355. (copyfiles
  356.    (source "RAM:VP_0x0")
  357.    (dest @default-dest)
  358.    (newname "VisualPrefs")
  359.    (infos) (noposition)
  360. )
  361.  
  362. (delete "RAM:VP_0x0" (safe))
  363.  
  364. ;***************************************
  365. ;** INSTALL FILES: SELECT.GADGET LIBRARY
  366.  
  367. (complete 30)
  368.  
  369. (if (= 1 var_gadget)(
  370.    (set fullgadgname (tackon gadgdir "select.gadget"))
  371.  
  372.    (set mustcopy
  373.       (run (cat "Version > NIL: \"" fullgadgname "\" FILE VERSION " sgver " REVISION " sgrev) (safe))
  374.    )
  375.  
  376.    (if (<> 0 mustcopy)
  377.       (copyfiles
  378.          (source "InstallFiles/select.gadget")
  379.          (dest gadgdir)
  380.       )
  381.    )
  382.  
  383.    ; This doesn't always work, and I have no idea why...
  384.    ;
  385.    ;(copylib
  386.    ;   (source "InstallFiles/select.gadget")
  387.    ;   (dest gadgdir)
  388.    ;   (optional nofail)
  389.    ;)
  390. ))
  391.  
  392. ;*******************************
  393. ;** INSTALL FILES: DOCUMENTATION
  394.  
  395. (complete 35)
  396.  
  397. (if (< 4 var_icon)
  398.    (
  399.       (copyfiles
  400.          (source (tackon var_docd var_docr))
  401.          (dest docdir)
  402.          (infos) (noposition)
  403.       )
  404.       (copyfiles
  405.          (source (tackon var_docd var_doca))
  406.          (dest docdir)
  407.          (infos) (noposition)
  408.       )
  409.    )
  410.    (
  411.       (copyfiles
  412.          (source (tackon var_docd var_docr))
  413.          (dest docdir)
  414.       )
  415.       (copyfiles
  416.          (source (tackon var_docd var_doca))
  417.          (dest docdir)
  418.       )
  419.    )
  420. )
  421.  
  422. ;***************************
  423. ;** INSTALL FILES: GUI-PREFS
  424.  
  425. (complete 40)
  426.  
  427. (copyfiles
  428.    (source "Prefs/GUI")
  429.    (dest "RAM:")
  430.    (newname "GUI_000")
  431.    (safe)
  432. )
  433.  
  434. (if (= 0 var_cpu)(
  435.    (copyfiles (source "RAM:GUI_000") (dest "RAM:") (newname "GUI") (safe))
  436. ))
  437.  
  438. (if (= 1 var_cpu)(
  439.    (run "InstallTools/SPatch > NIL: -oRAM:GUI -pInstallFiles/GUI_020_030.pch RAM:GUI_000" (safe))
  440. ))
  441.  
  442. (if (= 2 var_cpu)(
  443.    (run "InstallTools/SPatch > NIL: -oRAM:GUI -pInstallFiles/GUI_040.pch RAM:GUI_000" (safe))
  444. ))
  445.  
  446. (if (= 3 var_cpu)(
  447.    (run "InstallTools/SPatch > NIL: -oRAM:GUI -pInstallFiles/GUI_060.pch RAM:GUI_000" (safe))
  448. ))
  449.  
  450. (delete "RAM:GUI_000" (safe))
  451.  
  452. (copyfiles
  453.    (source "RAM:GUI")
  454.    (dest "SYS:Prefs/")
  455.    (noposition)
  456. )
  457.  
  458. (if (< 4 var_icon)(
  459.    (copyfiles
  460.       (source "Prefs/GUI.info")
  461.       (dest "SYS:Prefs/")
  462.       (noposition)
  463.    )
  464. ))
  465.  
  466. (delete "RAM:GUI" (safe))
  467.  
  468. ;**************************
  469. ;** INSTALL FILES: CATALOGS
  470.  
  471. (complete 50)
  472.  
  473. (if (bitand var_lang 1)
  474.    (
  475.       (copyfiles
  476.          (source "Catalogs/italiano/gui.catalog")
  477.          (dest "LOCALE:Catalogs/italiano/")
  478.       )
  479.    )
  480. )
  481.  
  482. ;***********************
  483. ;** INSTALL FILES: ICONS
  484.  
  485. (complete 60)
  486.  
  487. (if (= 1 var_icon)(
  488.    (copyfiles
  489.       (source "NewIcons/GUI.info")
  490.       (dest "SYS:Prefs/")
  491.       (noposition)
  492.    )
  493.    (copyfiles
  494.       (source "NewIcons/doc.info")
  495.       (dest docdir)
  496.       (newname (cat var_docr ".info"))
  497.       (noposition)
  498.    )
  499. ;   (copyfiles
  500. ;      (source "NewIcons/doc.info")
  501. ;      (dest docdir)
  502. ;      (newname (cat var_docc ".info"))
  503. ;      (noposition)
  504. ;   )
  505. ))
  506.  
  507. (if (= 2 var_icon)(
  508.    (copyfiles
  509.       (source "MagicWB/GUI.info")
  510.       (dest "SYS:Prefs/")
  511.       (noposition)
  512.    )
  513.    (copyfiles
  514.       (source "MagicWB/doc.info")
  515.       (dest docdir)
  516.       (newname (cat var_docr ".info"))
  517.       (noposition)
  518.    )
  519. ;   (copyfiles
  520. ;      (source "MagicWB/doc.info")
  521. ;      (dest docdir)
  522. ;      (newname (cat var_docc ".info"))
  523. ;      (noposition)
  524. ;   )
  525. ))
  526.  
  527. (if (= 3 var_icon)(
  528.    (copyfiles
  529.       (source "Iconographics/GUI.info")
  530.       (dest "SYS:Prefs/")
  531.       (noposition)
  532.    )
  533.    (copyfiles
  534.       (source "Iconographics/doc.info")
  535.       (dest docdir)
  536.       (newname (cat var_docr ".info"))
  537.       (noposition)
  538.    )
  539. ;   (copyfiles
  540. ;      (source "Iconographics/doc.info")
  541. ;      (dest docdir)
  542. ;      (newname (cat var_docc ".info"))
  543. ;      (noposition)
  544. ;   )
  545. ))
  546.  
  547. ;******************************
  548. ;** INSTALL FILES: SAMPLE PREFS
  549.  
  550. (complete 70)
  551.  
  552. (if (= 1 var_exa)
  553.    (copyfiles
  554.       (source "Prefs/Presets/")
  555.       (dest "SYS:Prefs/Presets")
  556.       (all) (infos) (noposition)
  557.    )
  558. )
  559.  
  560. ;***************************************
  561. ;** INSTALL FILES: NEW PREFERENCES FILE
  562.  
  563. ;(complete 80)
  564.  
  565. ;(rename "ENVARC:Sys/gui.prefs" "ENVARC:Sys/beta_gui.prefs")
  566. ;(run "InstallTools/ConvertGUIPrefs > NIL: ENVARC:Sys/beta_gui.prefs ENVARC:Sys/gui.prefs")
  567.  
  568. ;*******************
  569. ;** STARTUP-SEQUENCE
  570.  
  571. (complete 90)
  572.  
  573. (if (= 0 var_vp)
  574.    (
  575.       (run (cat "InstallTools/AddLine \"" @default-dest "\""))
  576.       (protect "S:Startup-sequence" "+srwd")
  577.    )
  578. )
  579.  
  580. ;************
  581. ;** WBSTARTUP
  582.  
  583. (complete 95)
  584.  
  585. (if (= 1 var_pwb)(
  586.    (copylib
  587.       (source "Tools/PatchWB/PatchWB")
  588.       (dest "SYS:WBStartup")
  589.       (optional nofail)
  590.    )
  591.    (copyfiles
  592.       (source "Tools/PatchWB/StartPatchWB")
  593.       (dest "SYS:WBStartup")
  594.       (infos) (noposition)
  595.    )
  596. ))
  597.  
  598. ;***************
  599. ;** LAST ADVICES
  600.  
  601. (message msg_adv1 msg_adv2 msg_adv3)
  602.  
  603. ;***********
  604. ;** READ ME!
  605.  
  606. (complete 99)
  607.  
  608. (run "SYS:Utilities/MultiView \"Read me!\"" (safe))
  609.  
  610. ;*******
  611. ;** DONE
  612.  
  613. (complete 100)
  614. (exit (cat "\n" msg_done msg_done2))
  615.  
  616.